home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / prime_tests / primes_ace.b next >
Text File  |  1999-07-24  |  468b  |  23 lines
  1. ' This program finds the prime-numbers from 2 to 3000.
  2. ' It has been adapted for ACE BASIC's dislike of GOTO
  3. ' out of a FOR loop. Blitz may need something similar
  4.  
  5.  DEFINT a-z
  6.  
  7.  SCREEN 2,640,200,1,2
  8.  PRINT "prime numbers from 2 to 3000:"
  9.  
  10.  BeginTime! = TIMER
  11.  
  12.  FOR a = 2 TO 3000
  13.    FOR b = 3 TO a-1
  14.      IF a MOD b = 0 THEN b=9999
  15.    NEXT b
  16.    IF b<=9999 THEN REM PRINT a
  17. NotPrim:
  18.  NEXT a
  19.  
  20.  PRINT "time needed:"+STR$(TIMER-BeginTime!)+" s."
  21.  
  22.  WHILE INKEY$ = "" : WEND
  23.